home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_19_(11-1984).d64
/
run me first
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
2KB
|
50 lines
1 REM CBM USERS OF NORMAN DISK LIBRARY
2 REM WRITTEN BY DAVID TINGLER
3 POKE53280,0:POKE53281,0:POKE646,1:PRINTCHR$(14):PRINTCHR$(147)
4 PRINTTAB(7)"[158][195]OMMODORE [213]SERS OF [206]ORMAN"
5 PRINTTAB(15);"[208][207] [194]OX 573"
6 PRINTTAB(11);"[206]ORMAN, [207][203] 73070"
7 PRINTTAB(0)"[159][198]OR INFORMATION CONTACT:"
8 PRINT"[195]HAIRMAN: [158][205]ATT [200]AGER..........872-8187"
9 PRINT"[159][211]EC/[212]REAS: [158][210]ICHARD [193]RMSTRONG...321-0067"
10 PRINT"[159][206]EWSLETTER: [158][203]IM [208]UGH............364-0248"
11 PRINT"[159][204]IBRARY: [158][196]AVID [212]INGLER.......360-6752"
12 PRINTTAB(12)"[145][208]AUL [194]URKE..........239-2249"
13 PRINT"[159][194][194][211]: [158][195][194][205] [201]NFO [197]XCHANGE...366-7345"
14 GOSUB47
15 PRINTCHR$(147):PRINTTAB(3)"[159][208]UBLIC DOMAIN SOFTWARE IS AVAILABLE"
16 PRINT"TO ALL CLUB MEMBERS FOR A SMALL COPYING"
17 PRINT"FEE. [212]HERE IS NO CHARGE TO MEMBERS WHO"
18 PRINT"PROVIDE NEW PROGRAMS TO THE LIBRARY."
19 PRINTTAB(3)"[158][215]E NEED YOUR PROGRAMS SO WE CAN BUILD";
20 PRINT"THE BEST CLUB LIBRARY AROUND!"
21 PRINTTAB(3)"[159][193]LL SOFTWARE CONTAINED IN THE CLUB"
22 PRINT"LIBRARY IS BELIEVED TO BE IN THE PUBLIC"
23 PRINT"DOMAIN. [208]LEASE CONTACT THE LIBRARIAN"
24 PRINT"IF YOU HAVE ANY INFORMATION TO THE"
25 PRINT"CONTRARY."
26 PRINTTAB(3)"[159][195]OMMODORE IS A REGISTERED TRADEMARK"
27 PRINT"OF [195]OMMODORE [194]USINESS [205]ACHINES, [201]NC."
28 GOSUB47
29 PRINTCHR$(147)
30 PRINT"[159][208][210][197][211][211]:
31 [153][163]3)"<(null)>SYS TO READ AGAIN."
32 [153][163]3)"OPEN<STR$>SYS TO READ THE DISK DOCUMENTATION."
33 [153][163]3)"OPEN<(null)>SYS TO RUN THE DISK MENU."
34 [153][163]3)"OPEN<VAL>SYS TO EXIT PROGRAM."
35 [161]C$:[139]C$[178]"R"[167]1
36 [139]C$[178]"D"[167]40
37 [139]C$[178]"M"[167]45
38 [139]C$[178]"E"[167]46
39 [137]35
40 [159]2,8,2,"DISK DOC":[153][199](147):C[178]0
41 [132]2,P$:[139]ST [175]64[167][153]P$:[137]44
42 [153]P$:C[178]C[170]1:[139]C[178]23[167][141]47
43 [137]41
44 [160]2:[141]47:[137]29
45 [147]"MENU",8:[162]
46 [128]
47 [153][163]3)"OPEN(PRESS <SPACE BAR> TO CONTINUE)"
48 [161]A$:[139]A$[179][177][199](32)[167]48
49 [142]